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This paper describes a simulation model of an 
urban school district. The results of operating the 
simulation under various conditions is presented. 

The results are forecasts of financial requirements 
and operating statistics. 

It is demonstrated that such simulations are 
feasible and concluded that they are useful. 

Based on this model estimates are made of the 
cost of operating the particular school district under 
various sets of policy. 



2 . 



MODEL AND RESULTS 

The School District of Philadelphia has been modelled by a computer 
simulation. The purpose of this simulation is to: 

demonstrate the feasability of simulating an urban school 
district. 

- provide some preliminary guidelines as to the effect of 
major policy changes on the District's financial outflow 
and operating statistics. 

Both objectives have been accomplished. 

The model represents the District as a single aggregated enter- 
prise. The characteristics of the model are these: 

- time proceeds on a year-by-year basis; the model provides a 

snapshot" of the situation at the end of each year. 

- two areas are represented, the inner core and the outer, 
suburban-like perimeter. 

students are considered a homogeneous population except 
for the area they are in. 

- staff is divided into two groups, paraprofessionals and all 
others (the latter including teachers, supervisors and 
management) . 

- space is represented by the square-feet available and is pro- 
cured in amounts equal to schools; with appropriate lead 
times and costs. 

all other services (including non-professionals) and materials 







are calculated as "overhead” items on a per student or per 
square-foot basis. 

- all cost factors have appropriate inflation factors associated 
with them (ranging from 2.5 % to 4 % per year) . 

The model computes each year's results (starting from the situation at the 
end of the previous year) according to the procedure outlined in Figure 1. 

This model includes several policy variables; factors which can be 
set by management. The purpose of a model is to explore the consequences 
of changing these policies. The key policy represented in this model are: 

- students per staff (excluding paraprofessionals) 

- space per student 

- computer- assisted- instruction (CAD equipment per student 

- students per paraprofessional 

- paraprofessional per staff 

- staff salaries 

- paraprofessional staff salaries 

These are represented as averages over each of the two areas. 

The model also includes three policies set by the community: 

- operating budget limit (equivalent to dollars per student). 

- capital budget limit. 

- computer (CAI) equipment budget limit. 

The studies made to date using the model vary these policies in 
order to determine the effect on the operation in the District. Not all 
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of the policies have been varied in the many possible, or even most of 
the interesting, combinations. In all studies so far no limit has been 
set on operating budget and no operating budget allocation procedure is 
included. The policies actually varied are implied in the description of 
results below. 

Figure 2 shows a typical result at the end of a year. A summary 
of the operating costs is given, followed by operating statistics and then 
the capital costs. Other data is available in the computer which is not 
printed out, such as the proportion of staff assigned to supervising para- 
professionals. 

Figure 3 is a typical summary plot provided by the computer 
simulation for presentation. Below this data has been transcribed onto 
special graphs for ease of analysis. 

The results can be best understood by reference to Figures 4 
through 8. 

Figure 4 shows two assumptions used about enrollment. The 
lower or normal is one of the forecasts now used by the Facilities Plan- 
ning Department of the District. The upper or pessimistic curve re- 
presents a situation which might result if a major shift occured from 
private to public schools. Since there are about 500,000 school age 
children in the city, the pessimistic curve assumes most of them will be 
in the public schools by 1980. 

Figure 5 shows the total operating costs over time that result 
from various combinations of policies. The A curve is a forecast of 
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Figure 3. 

A plot of data from the run that forecasts <"^sts and 
operating statistics if no substantial change in policies 
is undertaken. (Symbols at right show superimposed 
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costs if no substantial policy changes are made. In this situation the 
student/staff policy is 18.5, which is the ratio actually attained in 1965. 
The space policy is 150 sq.ft, per student. No paraprofessionals nor 
CAI computer equipment is procured. The capital budget is limited to 
approximately $70 million per year and the normal enrollment curve is 
used. 

This A forecast is slightly lower than a five-year forecast recently 
madey by the Finance Division of the School District. The difference is 
a result of two factors: The model assumes a higher student/staff ratio 
and also takes into account the fact that not all staff requires can be hired. 

The B forecast is the same as A except that the capital budget 
limit is $150 million after 1971. The increased costs after 1971 reflect 
the effect of the added space on the operating costs especially debt service. 
The C curve is the operating costs for a situation in which the capital 
budget is $150 million throughout the period (although this does not have 
much effect until 1970 due to construction lead times) . Curve D is the 
predicted operating costs under a combination of pessimistic events and 
generous policies. It represents a "worst case. ” Here, the enrollment 
increases according to the pessimistic curve in Figure 4. The desired 
student/staff ratio is 15 and the space per student is 175 sq. ft. (Lower 
student/staff ratio implies more teachers and therefore, higher costs.) 

Curve E is correspondingly conservative; enrollment is assumed 
to be lower than the no.rmal curve and a student/staff ratio of 25 and a 
space-student ratio of 125 are considered satisfactory. This curve re- 
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presents the lowest costs the District could expect to incur. 

Figure 6 demonstrates operating costs under other more dramatic 
conditions. Curve B is the same as the basic curve - B - in Figure 5; it is 
included here for reference. 

Curve A in Figure 6 represents the School District under a policy 
which procures CAI systems and utilizes fewer teachers. The budget for 
equipment is $30 million per year. Under this limit, computer equipment 
is acquired until 1973 when there is enough for the entire system. Curve 
F at the bottom of Figure 6 shows the percentage of students using CAI at 
each point in time. The student/staff ratio policy for parts of the system 
with CAI is 35. (However, since staff is not relased, but is reduced though 
attrition this ratio is not attained until 1980. ) Note that use of CAI appears 
to reduce operating costs. Its effect on the education of the students has 
yet to be determined. Several other studies have been made with equip- 
ment budget limits of $10 million and student/staff ratio of 25. No un- 
expected forecasts resulted. 

Curve C demonstrates an effort to test the effect of an assumption 
on the results. The model for the runs discussed above assumes that only 
a fraction (58 %) of the staff needed in any year is actually hired. This 
represents the supply -demand effects in the market for teachers, i.e. , 
it represents the fact that there are not enough teachers available, and 
the fact the recruiting facilities are limited. Curve C is the same as 
curve B except that it assumed that all staff needed can be hired up to a 
limit of 2000 per year. More staff is hired under this assumption, hence 
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costs are higher. Further study is under way to choose the most valid 
assumption about staff hiring. 

Curve D represents the District operating under a policy in which 
paraprofessionals (non-certified assistants) are hired to increase the 
intensity of the educational effort. The goal is to hire enough assistants 
to obtain a student /paraprofessional ratio of 5. However, limitations on 
hiring and the turnover of paraprofessional personnel prevent this ratio 
from going lower than 13.5. The average salary of a paraprofessional 
is assumed to be $5000 in 1966 and inflates at 3 % per year. Under this 
condition the total staff-student ratio in 1975 is estimated to be 7.6. 

Note that this policy is quite expensive. 

Figure 7 shows the staff situation for the basic situation; curve B 
in figure 5. Note the predicted continued staff shortage. 

Figure 8 illustrates the effect of varying capital budgets. The 
upper curves show the square feet per student realized under three 
different rates of expenditure. Increasing the budget limit in 1971 to 
$150 million does help attain the desired space ratio sooner. 

This study is continuing in several directions: 

- A model of the sources of funds is being developed so that 
operating cost limits can be set. 

- An attempt is being made to model educational effectiveness 
(in terms of changes in achievement levels on basic tests) 

- A submodel will be incorporated to represent management 
allocation of operating funds between factors (staff, materials, 
paraprofessionals) . 
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When these additions are complated, a study will be made to determine 
the settings of the policy factors which give the most effective operation. 
Another study will try to identify the method of planning which permits 
the schools to adapt most effectively to changes in the environment (e.g., 
in student enrollment and student characteristics) . 

In addition to continuing work on this model, a new, more detailed 
model is under development. This will contain explicit representations of 
areas within the district, of student characteristics and achievement and 
of educational programs . 

Planning is under way to perform studies in the School District of 
Philadelphia to validate this and future models. 












TECHNICAL DISCUSSION 



The Problem 

School districts must allocate limited resources to specific activities 
(as must any goal-oriented enterprise). There are difficulties in making an 
optimumx allocation in a school district, and especially in a large urban school 
district. These difficulties ensue partly from some inflexibilities in re- 
sources, they stem to a larger extent from non- additive interactions be- 
tween activities but perhaps, mostly they stem from a lack of well-defined 
value or objective functions. 

The key limited resources of a school district are money, profes- 
sional monpower and space. In general, availability of materials and non- 
professional manpower is not a significant limitation. All three of the key 
limiited resources have inflexibilities which restrict their deployment. 

These inflexibilities are similar to those found in industry but more severe. 
Manpower is less mobile, even within a city. Many female teachers in- 
sist on working near their homes. State laws and sometimes union agree- 
ments limit the extent to which teachers can be transferred. Teachers 
with skills are (at least are perceived to be ) non- interchangeable. 

Space is also inflexible to some extent. Gyms cannot be used for 
classrooms (in most designs), but music rooms can be (and often are 
under todays present crowded conditions) used for other classes. 

Completely unlike industrial financing, school districts have a 
percentage of their funds precommitted. Some funds are available, for 
exam.ple, to be used only for reading, only for preschool, only for the 




handicapped or the gifted, only for the construction of classrooms, etc. 
This precommitment of funds restricts school district management (as 
was the intention of the administrators of the source of the funds) and 

complicates the allocation process. 

The objective of the education system is to change the present and 

future behavior (or potential behavior) of the students being educated. The 
essence of education is the communication process - educating may be 
thought of as: the communication of information about alternative classes 
of behavior, the communication of instruction or technical competence in 
performing certain functions, and in transmitting values for outcomes of 
various ways of behaving. The activities selected by schools to achieve 
the objective depend upon the ways in wiiich the schools feel uhat the in- 
forming, instructing, and motivating tasks of education may be efficiently 

performed. 

Only part of the education processes is performed by the schools. 
A student interacts with many parts of his environment - his mother, 
father, siblings, peers, communications media, teachers, classmates, 
and curriculum material. Only the last three are supplied by schools, 
but the fact that significant education (communication) goes on in the 
home environment implies that schools must become incxeasingly in 
volved .here through parent groups and community activities . 

A basic activity of the school is the creation of an environment in 
which specially trained adults (or a machine - e.g. , film projector or a 
computer) can communicate specific facts, values, or problems to a 
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student within a group of students. The creation of such an environment, 
periodically, will be called an educational program , or simply a program. 
Because children have a limTted attention span and because there is a wide 
variety of messages to communicate and experience to present, a student 
participates in several programs, even in one day. The variety of pro- 
grams is hjrther increased in the urban school district because of the wide 
range of ages, capability levels of achievement, desires, and environments 
reflected in the large student pobpulation. 

This variety causes many administrative problems in the area of 
organization, personnel selections, curriculum design, and resource alloca- 
tion. This study focuses on the last of these. 

In attempting to solve any of these problems, the educational adminis- 
trator is trying to obtain the best educational performance possible. There 
are, however, no agreed-upon measures of educational performance. This 
lack of a way of evaluating the performance of a teacher, a school , a 
principal or a district makes the job of administration nearly impossible, 
inviting petty politics and "suboptimization”. The research, of which this 
study is a part, is attempting to design such measures. 

The research is proceeding in phases. The first, reported here 
involves a model which is limited to the prediction of operating charac- 
teristics and financial implications of alternative resource allocations. 

The next phase will develop measures and techniques for evaluating the 
educational consequences of resource allocation. 
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This effort is research; its overall objective is a better urder- 
standing of urban school complexes. The models developed may also be 
valuable to practicing administrators for use in setting priorities, select- 
ing programs and justifying expanded budgets. 

Approach 

A basic theme of this research is that we must develop precise 
models of the educational system if we are to make better allocation (and 
other) decisions. Therefore the principal aims of the study are: 

- to design a precise model of an urban educational system 
expressed as a computer simulation programs and 

- to explore the consequences of some basic alternative 
allocations. 

The present model is aggregate and therefore exploratory. A more 
detailed model is under development. Some interesting results have been 
obtained even with the aggregate representation of the School District; 
these are reported herein. 

Two earlier reports [References 1, 2] have described the overall 
research and the early development of this model. 

Derivation of the Model 

The simulation model represents the School District of Philadelphia 
in sufficient detail to forecast operating and capital costs by major categories. 

The first design decision was the selection of a level of aggregation. 
One could conceive of building a model which represents every teacher - 
child interaction and every administrative interaction on, say, a minute 






by minute basis. This may be the level of detail required in the ultimate 
model, but is far too complex for the initial effort. (Although in designing 
the ultimate model we would hope that we have sufficient understanding to 
abstract many of the detailed processes.) An intermediate model would 
represent each educational program and its operation over the sc tool year. 
In an intermediate model, some of the variables that might be represented 
are: 

- geographic areas (schools or clusters of schools), 

- detail in classifying teachers (by subject, skill, experience), 

- details of educational programs, 

- detail in classifying students (by age, achievement, socio- 
economic factors, IQ), 

- recognition of different uses of space, 

- various classes of equipments. 

Even this level of detail can lead to a very large simulation. (Work on a 
model at this level is proceeding.) To demonstrate feasibility, a very 
aggregate model was chosen as a first goal. In this model the following 
distinctions are made: 

- Time proceeds on a year-by-year basis. 

- The entire district is divided into two areas (corresponding 
approximately with areas of disadvantaged and of normal 
conditions) . 

- No details of student characteristics are represented (except 
the area in which they live) . 
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- staff is distinguished only as to whether it is professional, 
which includes teachers and administrators, or paraprofes- 
sional, which represents non-certified teaching assistants 
and volunteers. (Non-professional staffing is subsumed in 
overhead factors.) 

- Some detail is given in representation of space. The level 
of the school (elementary, junior or middle, and senior high) 
and five different space uses are distinguished. 

- Equipment for computer-assisted instruction is separated 
from all other supporting equipment. 

- No categories are recognized within educational materials. 

- There is no separate representation of educational programs; 
changes in programs are assumed to be represented by their 
effect on aggregate operating characteristics (e.g. , staff/ 
student) . 

The choice of this level of detail was the result of an interactive process 
which estimated the probable computer program implications of including 
more detail and, on the other hand, examined the kind of questions one 
would like to explore with the model when available. 

Major Subsystems 

A major step in model building is the identification and representa- 
tion of major subsystems of the phenomena being studied. This is a creative 
step, for which there are few rules. In any particular case, however, the 
functional subsystems are usually fairly evident. The discussion below will 
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make clear the processes included ivithin this model. 

A school system's activities are driven by the student enrollment. 
The first subsystem, therefore, is a demographic process which, in its 
full form, would represent birth, growth and movements of children in 
families throughout the district. Separate census and demographic studies 
have been made in the Philadelphia district. These produced forecasts of 
enrollment in (approximately) the two areas represented, at five year inter- 
vals from 1965 to 1985. The current model starts with these forecasts and 
does not explicitly represent the demographic process,, 

A second subsystem includes staffing procedures; hiring, transfers 
between areas, resignations. 

A third subsystem represents the provision of space for teaching. 
Specifi'ially, it includes the construction of new schools, additions to 
schools and the demolition of substandard structures. 

A fourth subsystem procures computer equipment for computer- 
assisted instruction (CAI). The schools are just beginning to use such 
equipment and it is included in order to be able to study the future finan- 
cial effects of CAI. 

Next, one would want to represent the actual process of education. 
The output of this process would be estimates of the achievement of students 
as a result of the programs provided. This submodel is under development, 
but not yet included. Thus the model now represents only the financial and 
people flows. 

A school system, provides many supporting services. In the model 
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these are represented by an overall "overhead” subsystem which estimates 
costs for these services. Included services are: books and materials pro- 
curement, health services, minor equipment procurement, equipment re- 
pair and maintenance, miscellaneous consulting and contracted services 
(e.g., caferterias), transportation, and debt service on bonds for construc- 
tion (net of subsidy) . 

A school district interacts with the remainder of the community in 
many ways, not represented here. In particular, the generation and input 
of financial resources through taxes, subsidies and grants is not represented 
as a process. This system boundary is represented by limits on funding 
available for capital programs and is ignored for the operating budget. In 
other words, the system operates as if it could obtain all the operating funds 
It needs. Tnis unrealistic assumption is being eliminated as the model is 
refined. 

Description of Principal Calcu l ations 

Figure 1 is a summary flow chart for this model. In this section 
the basic algorithms for each process will be presented. Details are given 
in Appendix 1 . 

Enrollment 

Enrollment forecasts are available for enrollment in the Philadelphia 
Schools at 5 year intervals from 1965 through 1985. Enrollment is estimated 
between these points by linear interpolation and by a linear extrapolation of 
the 1980-1985 forecasts for years beyond 1985. Enrollment is separately 
estimated for each of the two geographic areas. 
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Hiring 

Next the hiring process is represented. A complete representation 
would include a submodel of the market - the supply, demand and resulting 
salary levels - for teachers. The teacher supply process is complex and 
the development of this submodel would lead away from the main interest 
of this study (although it has to be done eventually). But we do have to re- 
present the market from the viewpoint of the school district, to account 
for the fact that it cannot hire all the teacher it needs. This has been re- 
presented, approximately, by equations which produce hiring results of 
the form shown in Figure 9. 




For needs less than LLIM all needed are hired. In the range from 
LLIM (often set = 0 in actual runs) to HLIM a proportion, X, of those sought 
are actually recruited. In any one, year, however no more that same 
maximum number of appointments, HLIM, can be made. The latter re- 
presents the fact that the recruiting and personnel processing capability 
of the school administration is limited. 
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The model takes into account transfers between the two areas of 
staff. Transfer rate between two areas is based on the experience in the 
1963 through 1966 period. This however, represents a very small fraction 
of the total staff required. 

Staff costs are calculated by miultiplying the available staff by the 
average salary (including fringe benefits). A cost can be assigned for each 
person hired (although in the current model this charge was set at 0 and in 
any case it would be a small fraction of the total operating budget). 

An analogous set of relationships is provided for staffing for para- 
professionals; non-certified assistants and "volunteers." 

Space 

Space is provided by the construction of schools. (Rentals are not 
considered in the present model.) This construction is represented by 
two separate processes; the first applies from 1966 through 1971 and the 
second thereafter. The first constructs schools according the existing 
(1966) six year capital budget and plan. After 1971, space is added in 
relation to a space-per- student goal constrained by a capital expenditure 
limit . 

The first construction routine explicitly represents the level of 
school and type of space. 

In the post -71 routine; schools are added each year in the sequence: 
Elementary, Middle, High. Each school adds a number of square feet (by 
categories of use) and incurs costs which are scheduled over 3 to 5 years. 
Schools are added until either (a) there is enough space (per policy)in all 
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of the years being scheduled (five) or (b) a capital limit for a year is ex- 
ceeded. The space needed is derived by multiplying the space-per-student 
goal by the estimated number of students for the year under consideration. 
CAI Equipment 

CAI equipment is added in a manner analogous to space construction, 
but without considering lead time or various tjrpes of equipment. The equip- 
ment needed in a year is estimated by multiplying the computer cost per 
student by the number of students and subtracting the equipment already 

available. The eqipment purchased, however, cannot exceed a specified 
limit. 

In addition the desired staff/student ratio is adjusted as computing 
equipment is procured. For example, without computer a ratio of 15/1 
might be desired (recall this is total staff not just teachers). For that 

portion of the student body that has CAI available the ratio might be 25/1. 
Overheads 

The various overhead factors are calculated as a function of the 
most appropriate operating variable. The overhead cost ratios are de- 
rived from data available for the 1963 through 1966 period. 

The specific overheads are as follows: 

- Health Services which are a function of the number of 
students enrolled. 

- Transportation Services also a function of the total enrollment. 
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- Contract Services which include maintenance and minor re- 
pairs to buildings as well as other miscellaneous services; 
this cost is a linear function of both the total enrollment and 
the number of square feet of space in the system. 

- Books and educational materials which are a function of total 
enrollment. 

- Equipmient costs (this is equipment other than that required 
by CAI) which is a function of total enrollment. 

- Repair and maintenance of equipment which is a function of 
total dollars worth of equipment owned by the system. 

- Plant operations and maintenance which is related to the 
total square feet of space in the system. 

Debt service is related to the accumulated construction 
costs for new buildings over the past years; appropriately 
decreasing as the debt is paid. 

Appendix 1 relates these various calculations to specific part of 
the computer program. 

In addition to these basic computations there are input/output routines 

- to format a report of operating and capital budgets and 
operating statistics, 

- to plot key variable after each run and a few key variables in a 
comparison of several runs . 
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Experimental Plan 

There are 11 key controllable or policy variables: 

- students per staff, 

- space per student, 

- computer-assisted-instruction (CAI) equipment ($) per 
student, 

- students per paraprofessional, 

- paraprofessional per staff, 

- staff salaries, 

- paraprofessional staff salaries, 

- materials ($) per student, 

- operating budget limit (or dollars per student) 

- capital budget limit, 

- computer (CAI) equipment budget limit. 

The first eight of these are controllable by school administration. The 
last three are controllable by the community. The studies to date have 
not varied (or experimented with) all of -,hese. There are also several 
variables representing the District's environment which we wished to 
manipulate in order to determine their effect on the budget. Among these 
are the following: 

- population enrollment growth; which we vary to determine the 
effect of mis -estimating enrollment forecasts. 

- the effect of the assumption that the number of staff hired 
is proportional to, and less than, the staff needed. 
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There are, of course, many other variables whose effect can be ex- 
plored with the simulation. However, the runs made during the initial test 
period were limited to some of these variables. The actual eiqDerimental 
plan is presented in Table 1. The first run, which might be called the 
basic run, was operated under the following conditions. 

- student/staff policy =18.5 (This was the policy or the actual 
ratio in effect in 1965) 

- Student/space policy = 150 sq. ft. per student. (I'his is a very 
generous amount of space, considered desirable by some school 
facility planning authorities, 60 sq. ft. per student properly 
designed, may be adequate in an urban district, and additional 
runs will be made on this basis.) 

- Student-paraprofessional ratio. In the basic run no paraprofes- 
sionals were hired. 

CAI policy. In the basic run it was assumed that no computing 
facilities were used for teaching purposes. 

In the basic run the capital expenditures were limited to 70 million 
dollars per year which is approximately the limit of it now in effect. Since 
no CAI was utilized, no budget limit was set for it. 

It was assumed that the staff actually hired was 58 % of the new staff 
needed in any one year. This percentage was the actual experience over 
the years 1960 through 1965. 

The enrollment was assumed to be that established by the forecasts 




derived by a separate study (see Figure 4). 
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Run 2 is the same as run 1 except that the capital limit increases 
to $150 million after 1971. This was taken as the basic run from which 

all others varied in one or more policy factors. 

Run 3 was intended to explore the upper limits of deviations from 
these policies, but still without such major changes as the extensive use 
of paraprofessionals or of CAI. The conditions for the second run are 
shown in Table 1. The student/staff policy is reduced to 15 and the space 
increased to 175 sq. ft. per student. It was also assumed that the enroll- 
ment increases three percent per year (note that this is compunded) faster 
than the existing forecast. This increase in enrollment would mean that 
the school system would be teacning most of the elementary and secondary 
students in the school district area by about 1980 (there is at the present 

time about 40 % who go to private schools) . 

Run 4 is a conservative run in which the students per staff is in- 
creased and the space decreased and the population assumed to grow 
more slowly than the forecast. 

Run 5 is the same as Run 2 except thai the student to staff ratio 
is assumed to be more favorable (15) in the poverty areas of the city. 

Run 6 was an attempt to explore consequences of being able to 
increase capital expenditures immediately. In this run the capital limit 

is 150 million per year starting in 1966. 

In Run 7 the conditions are the same as in Run 1 except that the 
following rule is made as to the hiring of personnel: as many teachers or 
staff as are needed are hired up to a limit of approximately 2000. (The 
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District has been hiring about 1600 new staff per year in recent years.) 

Runs 8 through 11 are runs in which it is assumed that the system 
buys computers by expending a certain capital budget for computing equip- 
ment each year. This budget is $10 million or $30 million per year. It 
also assumes that a satisfactory student-to-staff ratio in the portion of the 
school district in which computers are used is 25-to-l or 35-to-l. The 
four different runs are made by permuting these two conditions (student/ 
staff ratio and limit of expenditures for computers) . 

In the CAI runs it is assumed that the capital required per student 
in attendance for the equipment is $700. This includes terminals and the 
necessary central computing equipment. It is also assumed that the equip- 
ment related (educational software) costs per student are $50 per year. 

Run 12 is a run which is like the basic run except that paraprofes- 
sionals are hired. The desired ratio of students to paraprofessionals is 
5 to 1. These people, being part time workers and not professionals, 
should have a high turnover ratio. It is therefore assumed that approximately 
30 % of the paraprofessionals leave each year. It is assumed that their 
salary including all fringe benefits is $5000 per year (full time equivalent). 
This is an extreme case, usually most paraprofessionals are non-paid 
volunteers. 

In the paraprofessional run, it is assumed that 1 additional staff 
member is needed for every 10 paraprofessionals to provide the necessary 
supervision, and that an additional amount of space (the same as that set 
aside for one student) is required for each paraprofessional. 
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Inflation 

Most of the cost factors included in the model are inflated by year 
at varying rates related to estimates of actual inflation found in the literature. 
In particular, staff costs are inflated atS % per year and construction costs 
at 2.5 % per year. 

Conclusions 

The principal conclusion from this effort is that it is feasible to model 
an urban school district, i’he current model is guite aggregate and represents 
only very gross policy variables. However, it is clear that (with the proper 
research manpower) a model can be built which will represent the operation 
in detail, including representations at specific educational programs and 
their effect on the system. 

The principal conclusions as to school operation from this study 
to date are: 

(1) No matter how the system is operating, the operating costs 
are going to grow quickly toward $300 mnllion per year by 1970 to 1972. 

Use of CAI equipment can apparently reduce these costs; however, the 
educational effects of such a change have yet to be investigated. The re- 
duction from CAI will not limit the need for major increases in operat- 
ing revenues. 

(2) It appears that the present capital limit (about $70 million per 
year) will permit sufficient construction so that the space will increase to 
a desirable goal (150 sq. ft. per student), but quite slowly. A doubling 
of the capital budget would permit the space available to increase toward 
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reasonable levels (100 sq.ft, per student) in the comprehendable future, 
say 1975. (Note that this model does not include the possibility of rent- 
ing space; this possibility will be included in future models). 
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main (Numbers are ISN in listing) 

1 - 24 Set up core area 
25 - 35 Read run data 



36 - 41 Call subroutines with 

T = 0 to read initial data 



42 - 47 
50 - 117 

105 



120 



Write headings 

Set up parameters for each — - 

of four runs (1); is the last run: yes 

Set Capital budget limit, BC (I), for 
years 2 to 5 to same as year 1 and years 7 
through 40 to year 6 (years after start of run), 
(limit for years 1 and 6 are inputs) . 

Set T to just year (STARTM) 




122 - 132 

133 

136 

141 - 151 
153 - 164 



Call subroutines to perform simulation 



T = last years (STOPTM)?. 
T = T+1 



no 



Plot results of run (2)"^ 

Plot inter- run comparison ^ 
and stop 



yes 




(1) The number of runs performed in any single 

computer "job" can be changed, of course. 

(2) GRAPH is a service subroutine for plotting. 
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07 SISSON SDCAI 
N SOURCE STATEMEriT 



r-GRTRAN SOURCE LIST 



C 
1 
2 
3 
A 

5 

6 
7 
0 
1 
2 
3 



P 



16 

17 

20 



21 



22 
2 3 
2 4 



SIBFTC MAIN 

INTEGER T , S T 0 PT M , ST ART N , RO 
1 FORMAT {16,13,12,12,11) 

3 FORMAT (liil, •SCHOOL DISTRICT OF PHILADELPHIA') 

4 FORMAT ( IHO, ' PLANNING MODEL - VERSION 1') 

5 FORMAT (IHC RUN NUMBER ', 1 X , 1 3 , 5X , ' DAT E ' , 3X , 3 A6 ) 

21 FORMAT (1H1,5(H 

22 FORMAT (IHC, 5 01! 

23 FORMAT (1H0,5.H 

6 FORMAT (IHO, ' PARAMETERS READ*) 

7 FORMAT ( IHO, 'YEAR' , IX, 12, ' COMPLETED' ) 

COMMON/MASTER/T, STAllTM , S TOPTM , RU , DGLC £Q , E PS , E L , TOOLE Q 
COMmON/CSIUP/ IYF(4) ,STUF(4, 2) 

CL'MMON/XOEMO/X 1(2) , X3 ( 2 ) , X4 ( 2 ) , X5 ( 2 ) , X6 ( 2 ) , X7 ( 2 ) , X 8 ( 2 ) , 

1X9(2 ) ,X10(2) ,X1U2) ,PINF 
C 0 MM UN /CDEfiC'/ PDP,S1U(2. )»SrFA(2),STFiNl{2),L.STF(2) 

COMMON /CONCl/ DGLANN, DTOT ( :> ) , DOL , FT2NET ,BC(40),FSR 
COMiMON /CUPNS/ TPOM , TE 0 , T BK S6 D , 1 TA , THLTH , TKMEU, IDS , TCNSEK , TOH 
1,R1EQ,R2EQ 

COMMON/CGUT/CG{ 99 , 9 ) , CC ( 99 , 0 ) , G SN ( 99 ) , GS A { 99 ) , GBC ( 99 ) , 

1GDS( 99) , GST (99) ,GSS(99) ,GCN(99) , GCA (99) , IR 

COMMON /CORA/ iGT 

C 0 MM ON/CEQ/ FS,XE2{2),XC2(2),X2(2),PERC 
dimension YX(2) 



c 

c 

c 

c 

c 



READ MASTER CO.JTROL PARAMETERS 



2 5 



READ (5,1) ROATE,RUNNO, STA.RTMi, STGPTM,Ra 



C 

c 

c 



31 



32 



310 



READ RUN NAME, DESCRIPTION 
KEAU(5,310) DArEl,DATE2,DATE3 
FORMAT (3A6) 



C 

C 



133 
34 
3 5 



READ(5,21) 

READ(5,22) 

READ(5,23) 



C 

C 

c 

c 

c 



READ SUBPROGRAM PARAMETERS 



36 

37 
4C 
41 



T = 0 

CALL OEmO 
CALL CONST 1 
CALL OPNS 



C 

C 

C 

C 

C 



WRITE REPORT HEADINGS 



42 



WRIl E(6,3) 
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S'lSSGN SDCAI 

SOURCe STATEMC.n 



FQRTKAij SOURCE LIST MAIN 



3 

7 

b 

1 

[2 

3 

4 

5 

l7 

b 

1 

[2 

|3 

A 

5 

;7 

b 

2 



5 



7 



303,304) 



D 



WR n E ( 6 , 4 ) 

WRITE (6,21) 

WRITE (6,22) 

WRITE (6,23) 

•WRITE (6,6) 

C RUN CONTROL 

DO 40 IR=1,6 
C SET UR FOR RUNS 

GO TO (300,301, 

300 FS=.7 
X2( 1 )=.0S4 
X2 (2 ) =.054 
P I NF — .0 • 

FSR=150. 

BC { 1 }=7.E7 
DC(6)=15.E7 
K1EQ=50. 

R2EQ=50. 

EPS=700. 

EL=10.E6 
IEQSk=1 
XC2( 1 ) = . 04 
XC2( 2)=.04 
GO TO 110 

301 EL=30.E6 
GO VO 110 

302 EL=lJ.E6 
XC2( 1 )=.0286 
XC2( 2 ) = .0286 
GO TO 110 
E L = 3 J • E.6 
GO TO 110 
GO TO 2-')5 
TDS=10.E6 
T00LEQ=12.E6 
DO 120 1=2 
BCd )=BC(1) 

DO 130 
BC( I )=BC(6) 

WRITE (6,5) IR,DATE1,DATE2,DATE3 
YX(1)=1./X2(1) 

YX(2 )=1 ./X2 ( 2 ) 

YY=1 ./XC2 ( 1 ) 

WRITE (6,140) YX( 1 ) , YX t 2 ) ,PINF,FSR, BC : 1 ) 

1, YY 

140 FORMAT (/* STU/STAFF POL I C 7 * , 2F 10 . 2/ * POPULATION 



303 

304 
110 



120 



130 



,5 



1=7, 40 



, B C ( o ) 



K 1 E Q , R 2 E 0 



EPS, EL 



INFLATION 



1* ,F10.47 ‘ 
2F10. 0, • 



SPACE PUL ICY *, no. 0/’ CAP. BUDGE TCUNS 1 RA I NT - 
BEYUND* ,F10.0/ • EQUIP. COST PER STU.‘,2F7.3, 



TO 



FACTOR 

71* , 



C 

1 



3* CAPITAL EQUIP. ^■•ER STU. 
4F10.0/* STU/STAFF ULTlivATE* 
START RUN 
T=ST ARTM 
8 FORMAT (IHl) 



*,F8 

, FIO 



0 /* 

2 ) 



CAPITAL EQUIPMENT LIMIT* 



C 

c 



o 

ERIC 



29. c 



07 

N 



C 

c 

c 



22 



2 3 
2fi 

bo 

31 

32 

33 
36 



3 7 



C 

c 

c 

c 

c 

, 4 C 
.4 1 

:42 

14 3 
144 



146 

147 
16C 



151 

il53 



154 

155 

156 

160 

161 

162 

163 

164 



SISSCN SDCAI I" OR TRAN SOURCE LIST HA IN 

SOURCE STATEMENT 

START SIMULATION 



30 CALL DEMO 
CALL CONSTl 
CALL DFNS 

IF ( lEOSR.NE. 1 ) GO TO 31 
CALL EQPURC 

31 CALL YRGUT 
WRITE (6,7) T 

IF(T .EQ.STGPTM) GO TO 60 
T = T4-.1 
GO TO 30 



END OF RUN OUTPUT 



60 CONT liviUE _ 

CALL GRAPH t 1 , 0. , S: OOOuOCO • , 6HGRAPH r 6HF0R A£,6H0Vt UA,6HTA , 

16H »6H i6VJ ,4H OH) 

CALL GRAPH (2,4!l 50, 4H 1CC',4H 150, 4H 200, 4H 250, 4H 30u, 

I4H 3 50, 4 FI 4'wO,4H 45v^‘,4h. 5o0) 

DO 100 IGT= START^., STCJPTM 

100 CALL GRAPH ( 3 , CO ( I G T , I R ) , CC ( I GT , I R ) , G SN ( I GT ) , GSA ( I G T ) , G3C ( I G1 ) j 
1GDS( IGT) ,GST( IGF) ,GSS( IGT) ,GCN( IGT) ,GCA( IGT) ) 

CALL GRAPH ( 4 , Y , Y , Y , Y ,-Y , Y , Y , Y , Y , Y ) 

WRITE (6, 150) - - , 

150' FGRMATl *GO = OP. GUST S * , T2 1 , • C = C AP . COS T S * , T4 1 , ' M = S T AF F i'.cEUt-J’, 

1 T61 , ' A = 5T AFF AV A1 L ABLE * , TBl , ' L=TUTAL CAP. EQ.•/'LiR-R^M OF EU.*i 
2T21, 'P = ACTUAL STU/S TAFF • , T 41 , • S = SPACE/ STU. ' , T61 , • B = : 1 C US!;>1G CGhPU 
3TER' ,T81,'R==EQ. COST/YR.'/lHl) 

40 CONTINUE 

205 CALL GRAPH ( 1 , 0 . , 500O0COC0 . , 6F1GR APH ,6HF0R AE,t>HOVE DA,6HTA , 

16H ,6FI ,611 ,4H OH) 

CALL GRAPFl (2,4H 50, 4H 100, 4H 150, 4H 200, 4n 25C,Ah 3uO, 

14H 3 50,4F1 4lC',4H 4 50, 4H 500) 

DO 210 1GT= STARTH, SfOPTM 

210 CALL GRAPH ( 3 , CO ( I G T , 1 ) , CC ( 1 GT , 1 ) , CO ( I GT , 2 ) , CC ( I GT , 2 ) , CO ( I G T , 3 ) 

1 ,CC( IGT ,3 ) , CU( IGT ,4 ) ,CC( IGT ,4 ) , 3HE.ND, Y } 

CALL GRAPFl ( 4 , Y , Y , Y , Y , Y , Y , Y , Y , Y , Y ) 

WRITE (6,200) , ^ 

200 FORMAT ( * OCOf'PARl SON OF RUNS*/'00,C- RUN 1 N,A,- RU.\ c 

1 L,D=-RUN 3 P,S ^ RUN 4») 

50 STOP 
END 



o 

- ERIC 

- 




YROUT 



1 - 10 
11 

14 - 101 
102 - 106 
107 - 116 
117 - 132 



Set up core 

Skip this subroutine if T = 0 
Print output (See example in Figure 2) 
Compute statistics about paraprofessionals 
Print remaining data 

Save this year's values of key variables for 
plotting routine. 



o 

ERIC 

MjMilMiiTifaiJ 



IH 



• Tiiiir -ir iiriiiiiiam r rhliV <rr 






FORTRAN SOURCE LIST 



.5 SISSCN - SCGNE - 
4 SOURCE STATENENT 



D $IBFTC YRCUT 

1 SUBROUTINE YRCUT 
' C 

u . . . 

! C 

C YEAR END OUTPUT 

C 

c 

2 INTEGER T , ST ARTR , STCPTR , RO 

3 CCRRON/MASTER/TtSTARTF, STCPTN,RC,DOLCEGt EPS,EL,TDOLEQ 

A CCPNON /CCNCl/ DGLANN , DTOT ( 5 ) , DOL , FT2NET fBC(40),FSR 

5 CCHPON /CDEf'C/ POP , STU ( 2 ) , STFA ( 2 ) , STFN ( 2 ) , C STF ( 2 ) 

t CCPNCN /CCPNS/ TPCR, TEG»TBKSED,TTA,THLTH,TRME0,TDS,TCNSER,T0H 

ltRlE0,R2EC 

[7 CGPNCN/CCUT/CC^ S9,9) ,CC ( 99 , 9 ) ,GSN (99 ) ,GSA (99 ) ,GBC ( 99 ) , 

1GDS(99) ,CST(99) ,GSS(99) ,GCN(99) »GCA(99) ,IR 
C CCPPON'/CPDK/ CPS»PSTFA(2) ,UUCP(2) 

1 IF (T.EG.O) GO TO 2G 

C 

c 

C VnRITE operating costs 

c 

c 



lA 




;5 


1 


6 




7 




;o 




ii 


2 


2 




3 


30 


A 




;5 


31 


'6 




'7 


3 


c 




il 


A 


2 




3 


5 


A 




5 


6 


6 




7 


7 


0 




1 


8 


2 




i3 


9 


A 




5 


10 


6 




7 


11 


*0 




1 


12 


2 




3 




A 


13 



URITE (6,1) T 

FORRAT ( IHl , •operating costs for year 19*, 12^ 
CSTFT=CSTF(1)+CSTF(2) 

C=CSTFT+CPS 
IvRITE (6,2) C 

FORPAT ( IHC, ' STAFF SALARIES* ,T50,F10.0) 
V>RITE(6,3C) CSTFT 

FORMAT ( IHC, *PRuF. STAFF $ • , TAG , F 1 C . 0 ) 
HRITE(6,31) CPS 

FORMAT (IH ,»PARAPRCF. STAFF $ • , T AO , F 1 0 . 0/ ) 
HRITE (6,3) TOH 

FORMAT ( IX, •TOTAL OVERHEAD* ,T5C,F10.0) 

WRITE (6, A) 

FORMAT ( 6X, •OVERHEAD DETAIL*) 

WRITE (6,5) TPCM 

FORMAT (6X, *PLANT OPNS AND M A I NT . • , TAO , F 10 . 0 ) 
V.RITE (6,6) TEQ 

FORMAT (6X, •EQUIPMENT* v TAO, F 10.0) 

WRITE (6,7i TBKSEC 

FORMAT (6X, 'BOOKS AND ED. MTL . • , TAO , F 10 . 0 ) 
WRITE (6,8) TTA 

FORMAT (6X, • TRANSPORTATION * , TAO, FI 0,0) 

WRITE (6,9) THLTH 

FORMAT (6X, 'HEALTH SERV I C E • , T AO , F 1 0 . 0 ) 

WRITE (6,10) TRMEC 

FORMAT (6X, 'REP. AND MAINT. OF EQ . • , TAO , F 10 . 0 ) 
WRITE (6,11) TDS 

FORMAT (6X, 'DEBT SERVICE • ,TAC,F10.C) 

WRITE (6,12) TCNSER 

FORMAT (6X, • CONTRACT SERVICE •, TAG, FI 0.0) 

CTCT=TGH+C 

WRITE (6,13) CTOT 

FORMAT ( IX, 'TOTAL COSTS* , T A9 , F 1 1 . 0// / ) 







1 



(5 




)? 









C 

C 

c 

c 



SISSCN - SCGNE ~ FCKTRAN SGURCE LIST YRCUT 

SCUKCC- STATEMENT 



^^RITE OPERATiNG STATISTICS 



V^RITt (6,131) 

131 FORMAT (IHC, *GPERATING STATISTICS*) 

STLT=STU(1)+STU(2) 

FT2AVE=FT2NET/STUT 
^RITE (6,1A) STUT,FT2NET,FT2AVC 
lA FGRMATdHCtFll.G, * STUDENTS lN*,Fli.O,* SG. FT.*/ 

1* FOR AN AVERAGE CF*,F8.0,* SG- FT. PER STUDENT*) 
STFNT=STFN(l)+STrN(2) 

STrAT = STFA( 1 )-!-STFA(2) 

FCS(J = STFNT-STEAT 
TSR 1 = STU( 1 ) /STFA( 1 ) 

TSR2=STU(2)/STFA(2) 

TSRT=STUT/STFAT 

)^R1TE (6,15) STU(1),STU(2), STUT 

15 FORMAT (1HG,*N0. STUDENTS AREA 1 * , F 8 . 0 , 2 X , * AREA 2 * , FO .0 , 2X, * TOTAL • 
1,F8.C) 

URITE (6,16) STFA(l) ,STFA(2) ,STFAT,POSG 

16 FORMAT (1X,*STAFF AREA 1 * , F8 . 0 , 2X , » AREA 2 * , F8 . 0, 2X , * TOT AL * , 

IF 8.0,//* POSITIONS 0PEN*,F8.0) 

IF (peso .LT. O.C) WRITE (6,21) 

21 FORNATdh ,22X, *NOTG.. NEGATIVE POSITICNS OPEN IMPLIES SURPLUS STAF 
IF THIS YEAR* ) 

V^RITE (6,17) TSR1,TSR2,TSRT 

17 FORMAT ( »CSTUD. /STAFF AREA 1 * , F8 . 1 , 2X , * AREA 2 * , FO . 1 , 2X , * TOT AL * , 
lF8o 1///) 

TPSTF-=PSTFA( 1 )+PSlrA (2) 

TPSR = PGP/TPSTF 
TPSR1= STUd)/PSTFA(l) 

TPSR2= STU(2)/PSTFA(2) 

V^RITE(6,32) TPSTF,TPSR 

32 FORMAT (1H0,*TGTAL PARA. ST AF F * , T2 1 , F 10 . 0 , TA 1 , * P AR A/STU * , 
1T61,F8.1) 

^RITE(6,33) FSTFAd) ,PSTFA(2),TPSR1, TPSR2 

33 FORMAT (IHC, *PARA, BY ARE A • , T2 1 , 2F 10 . 1 , T 5 1 , * P AR A/ STU BY AREA*, 
1181,2F8.n 



WRITE CAPITAL COSTS 



WRITE! 6, 18) T,DCL,DTCT(1) ,CCLANN 

18 FORMAT ( IHO, *CAPI TAL EXPENDITURES FOR 19*, 12// * ADD I T I ONS , I MPROVE 
1^^:N^S,REPAIRS* ,T4C,F11.0/1X, *NEW CON STRUCT I ON * , T40 , F 1 1 . 0/ IX , * TOTAL 
3 CAPITAL OUTLAY* ,T50,F11.0) 

WRITE (6,19) DCLCEG 

19 FORMAT (1H0,*CAPITAL ECU I PMENT * , T 50 , F 1 1 . 0/// ) 



STORE DAT^ FCR GRAPHS 



o 

ERIC 


















30. c 



1 015 


SISSCN - SCCNE - 


pSN 

I 


SOURCE STATENENT 


1 ^ 
|l17 


CC(T, IR)=CTCT 


P20 


CC(T, IR) = CCLANN 


^hi 


GSN(T)=STFf^T*10COC 


122 


GSA( T)=STFAT*1CC00 


l23 


I I 1 = T - STARTS + 


J2A 


GBC(T)=TPSTF*1CC00 


125 


GCS(T)=TPSR*10.F6 


-j26 


GST(T)=TSRT*1C.FA 


27 


GSS(T)=FT2AVE«1.E6 


130 


GCrvi(T)=CCL 


-131 


GCA( T)=CTOT( 1) 


1 32 


20 RETURN 


L33 


ENO 



FC,^TRAN SOURCE LIST YRCUT 



: ' ■ ■ ■ ■■ ■: 



[ 

















DEMO 



1 - 12 Set up core 



13 



T = 0 



no 



16 - 55 



56 

57 

62 - 63 
64 



Read in or set parameters for this subroutine: 
(This sets up for first run; subsequent runs 
are set up in MAIN and below . ) 

IIT = years since start of run ^ —■ 

T > STARTM 

(if T = STARTM 
set up for run) 

Set initial staff available (STFA (D). 

I = area; 1 or 2. 

Calculate initial staff needs (STFN(D). 

X2 (I) = desired staff/student ratio. 






66 - 75 Estimate enrollment-^e — 

lYF (I) = year of forecast 

I is an index; lYF (1) = 65, 
lYF (2) = 70, etc. 

FR = interpolation slope 
STU (J) = enrollment in area (J) 

STUF (I, J) = forecast enrollment at year 
indexed I, for area J". 



76 

101 



- 77 



- 10 



105 - 111 



113 



If 85 enrollment is estimated. 

Extrapolation to obtain enrollment beyond 1985 
(I = 4). RL = extrapolation slope. 

Inflate enrollment above forecast if the inflation 
factor PINF>0. 

POP = total enrollment 







mmmm 












32 . 



114 - 136 Calculate staff hired. I = area index 

STFI, STFO = staff transferring in an out of areas, 
(used at 142 - 164) . 

STFL = staff lost, a fraction X3 of staff available at 
end of year 

STFL = staff hired, calculated per this form: 




142 



143 

164 



163 

167 



170 - 175 



STFH in 120 



STFN = New staff needs = enrollment times effective 
staff/student policy XE2. This effective ratio depends 
on the extent to which CAI is utilized if paraprofes- 
sionals are hired there is another factoi; SP which adds 
needs in relation to staff/parastaff requirements for 
supervision. 

Accounts for transfer between areas at a rate X5. 

Computer stafi cost: 

XIO = salary inflation factor 

X6 = average salary 

Xll fringe benefit cost 

X7 = cost of hiring a staff member 

X8 = cost of resignation 

X9 = cost of a transfer 

Computes various totals. 
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ERIC 









015 SISSCN - SDONE - 
SN SCIRCE STATENENT 



FCKTRAM SCL'RCE LIST 



0 $IBFTC CENC 

1 SUDRCUTIME DENC 

2 1I\TEGER T, STARTS, STCPTM,RO 

3 CCr‘N:ON/MASTFR/T,STARTF,STGPTN,RC,COLCEGf EPSf EL,TDOLEQ 

A CCNPON /CDEMO/ PG P , STU ( 2 ) , STF A ( 2 ) , S TFN ( 2 ) , CSTF { 2 ) 

5 CC^^^:CN/CSTUP/IYF( A ) , STUF( A,2 ) 

6 CCPMCN/XCEN!C/Xl(2),X2(2) ,X3(2) ,XA(2) ,X5(2) ,X6(2) fX7(2)tX8(2) , 

1X5(2), X1C(?),X11(2),PINF 

7 CGf^NCN/CPDM/ CP S , PSTF A ( 2 ) , WUCP ( 2 ) 

10 CII^ENSION STFI(2),STFG(2),STFH(2),STFL(2),STFAF(2),DIFF(2) 

11 CIMENSIGN STFAX(2), CCFAC(2) ,SP(2) 

12 FLTM=2CCC. 

13 IFH.GT.C )GG TO A1 

16 READ( 5,9) ( ( I YF( I ) ,STUF( I, 1 ) ,STUF (I,2)),I = 1»A) 

27 9 FORMAT (A( 12, 2F6.0) ) 

30 READ ( 5, 1 ) { ( XI ( I ) , X2 ( I ) , X3 ( I ) ,XA ( n , X5 ( I ) ,X6( I ) ,X7 ( I ) ,X8 ( I ) ,X9( I ) , 

IX IC( I ) ,X11 ( I ) ) , 1=1,2 ) 

A1 1 format ( 11F6.C ) 

A2 READ(5,2)(STFAX(I),l=l,2) 

A7 2 FORMAT { 2F6.0 ) 

50 CO lA 1=1,2 

51 lA STFN( I) = X2( I )’{ STUF ( 1 , 1 ) 

53 CC 15 1=1,2 

5A 15 SP( I ) = .1C 

56 CALL PCEMO 

57 RETURN 

60 A1 m = T-STARTM 

61 IF(T.NE.STARTM) GC TC 3 

6A CC AO 1=1,2 

65 AO STFA( I ) = STFAX( I ) 

67 CG ICC !=1,2 

70 ICO STFN( I )=X2( I )«STUF( ) , I ) -»■ SP ( I ) «PSTF A ( I ) 

72 3 CC 10 I = 2,-A 

73 1F(T.GT. IYF( I ) )G0 TO 10 

76 FR=FLGAT(T-IYF( I-l) )/5. 

77 CC 11 J=l,2 

[CC 11 STU( J)=FR*STUF( I, J)4 ( 1 . 0-FR ) «STUF { I -1 , J ) 

[02 GC TO I? 

[C3 1C CONTINUE 

[05 CO 13 J=l,2 

L06 RL=(STUF(A, J)-STUF(3,J) )/5. 

[07 13 STU( J )=STUF( A, J)+r-L0AT(T-IYF (A) )«RL 

[11 12 IF (PINF.EC.C.) GG TC 25 

[lA CO 2C 1=1,2 

115 2C STUd ) = STUn )'M ( l. + PINF)^=«'I IT) 

[17 25 F0P=STU(1)+STU(2) 

i?0 rC 60 1=1,2 

L21 STFI(I)=C.O 

[22 STFC1(I)=C.C 

L23 STFL ( I )=X3( I )*STFA ( I ) 

L2A 60 STFH( I )=XA( I )*( STFi\l( I )-STFA( I ) + STFL ( I ) ) 

[26 TSTFH=5TFH( 1 )+STFH(2) 

[27 IF (TSTFF.LE.HLIM) GC TO 55 

[32 CO 5C 1=1,2 

[33 50 STFH(I)= ( STFH (I ) /T5TFH ) *HLI M 
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015 SISSCN “ SCONE - FCKTRAN SOURCE LIST DENO 

SN SOURCE STATEMENT 



35 5 5 

36 

37 
A2 
A3 

AA 5 
At 
A 7 
52 

55 

56 

57 
;60 

61 6 
^62 
'63 

6^ 7 

t5 
66 
67 

70 8 

72 
.73 
llA 
1 75 

[77 

|cc 



CALL PCENO 
CO 5 1=1,2 

IF(STFH(I).LT.O.O)STFH(I)=C.O 'l, 

STFN( I ) = X2( I )’!'STU ( I) +SP ( I ) ^PSTF A ( I ) (See-Note). 
STFAF ( I )=STFA ( 1 )+STFH(I )~STFL ( I ) 

C IFF( I ) = STFAF ( I )-STFN{ I ) 

XT=DIFF(1)«0IFF(2) 

IF(XT.GE.C.C)GC TO 7 
ir(DIFF(l).GT.O.O)GC TO 6 
riFF{l)=-OIFF(l) 

STFI ( 1 )=X5(1 )>:-ANINl (DIFF { 1) ,DIFF (2) ) 

STFC(2)=STFI (1) 

GO TO 7 

riFf {2)=~DIFF(2) 

STFI(2) = X5(2)>:^AMrNl(DIFF(l) ,DIFF(2) ) 

STFC(1)=STFI (2) 

CO fi 1=1,2 

STFA( I )=STFAF( I )+ STFI (I )-STFG(I ) 

ITT=T-STARTN41 

rCFACI I ) = { ( I.+XIOI I ) n )>.MX6( I I + XIK I ) ) 

C STFI I )=DCFAC I I I^i-STFAI I ) + X7( I I^^^STFUII ) +X8 ( I ) ❖STFL ( I ) + 
1X91 I )«(STFI ( I ) + STFC( I ) ) 

STFMT=STFI\I( 1 )4STFN(2) 

STFAT=STFA(1)+STFA(2) 

STFHT=STFH( 1 )+STFH(?) 

STFLT = STFL( 1) + STFI. 12} 

STR=PCP/STFAT 

RETURN 

ENC 



Wote:' In CAI runs XE2 is used here instead of X2, 
( XE2 is calculated in subroutine EQPUitC, 



t 

C 



I 






I- 




V 



PDEMQ 

1 - 6 
7-22 
23 - 26 



30 - 35 
37 - 43 



(This subroutine called from DEMO where paraprofessional 
staff is to be hired.) 



Set up core. 

Set up parameters before first run (T = 0). 

Compute parastaff nired: 

I = area index 

PSTFA = parastaff available 

PSTFL = parastaff resignations (a proportion, PL, of 
parastaff available at end of year) 

PH = staff hired 

PX2 = parastaff/student ratio, policy 

Limits total hires per year to PLIM 

Computes cost of paraprofessional staff 

UCP = average salary including fringe benefits 
PPINF= inflation rate of paraprofessional salaries 
WUCP = total cost in area 
CPS = total cost 



33. a 




015 SISSCN “ SCON'E - 
SN SCURCE STATEREK'T 



FORTRAN SOURCE LIST 



C 

1 

2 

3 

A 

5 

6 
i 7 
12 
13 
lA 

15 

16 
17 
21 
22 
23 
2A 

25 

26 

30 

31 
3A 
35 
37 
AO 
A1 
^3 
^A 
^5 



$TfiFTC PEENC 

St’ERCUTINE PCERC 

INTEGER T,STCPTR,STARTM,RC 

CCRMCN/MASTER/T * S TAR TF , S TOPTF , RD t CIGLCEQ , EPS t EL i TDOLEQ 
CCRNCN /CDERC/ POP , S TU ( 2 ) , STFA ( 2 ) , STFN ( 2 ) , C STF ( 2 ) 
CCR^^GN/CPDR/ CPS,PSTFA(2) ,KUCP (2 ) 

CINENSION PL(2), ICP(2), PX2(2) |PSTFL(2) , PHI2) 

IF(T.GT.C) GO TO 1 

rC 3 1-1,2 

PL(I)=.3 

PLIW-7C0C. 

LCP(I)=5CCC. 

PX2{ I)=.2 
3 PSTFA( I )=0, 

PPINF-.03 

RETURN 

1 ITT-T-STARTN 
CO 2 1=1,2 

PSTFL ( i )=PL( I )’; PSTFA ( I ) 

2 PH( I ) = (PX2( I )4=STU( I ) )-PSTFA ( I ) + PSTFL ( I ) 

PT=PH(1)+PH(2) 

IF (PT.LT.PLIfM GO TO A 
CG 5 1=1,2 

5 PHI I ) = (PHI I ) /PT)«PLIN 
A CO 6 1=1,2 

PSTFAID- PSTFA I l) + PH I I ) -PSTFLII) 

6 I^UCPI I)=LCPI I I^^I I l. + PPINF)^«ITT) ^PSTFAII) 

CPS-WLCPI 1)+UUCPI2) 

RETURN 

END 


















34 . 



CONST 1 



1 - 21 Set up core 



22 - 271 
272 

274 - 320 
323 - 325 



Read in initial parameters and values. 

Call CONST 2 to allow its initial values to be read. 

Re-estabilish values for next run. 

Calculate cost inflation factor CFAC based on annual 
increase CINF and years after start IIT. 



326 - 331 



333 - 342 
344 



347 - 440 



441 - 527 
532 - 600 



Calculate cost of units: TCNEW = new schools, 

TCAAD = additions, 

TCREP = a standard unit of repair; 
for 5 types of space. 

Compute number of units now in system NUMNEW, etc. 
based on preplanned program (1966, 6-year capital program). 

If year (since start) MMT is greater than last year 
of capital programLFLAG, call CONST 2 for continuing 
the construction process (CONST 2 returns with new 
NUMNEW). 

Compute cost DOLNEW, etc. , of construct for the year. 
DOLANN is the overall total: DOT (1) = cost of new 
construction, DOL = Cost of additions and repairs. 

Compute total square feet FT2NET = total square feet 
in the system. 

Adjusts data for next year. 
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)15 SISSCN - SDONE - FCRTR/iN SCUKCh LIST (y 

)N SOURCE STATEMENT 



0 

1 

2 

3 

A 

I 5 
6 
7 

10 

II 
12 
13 
lA 

15 

16 
17 
20 



tIPFTC CC.NSTl 

SUBROUTII^E CCNSTl 
INTEGER T, STARTS, STOPTMiRC 

CCRFON/MASTER/T, STARTR, STOPTN,RCf DOLCEQ,EPS,ELfTOOLEQ 
COMMON /CONOl/ COLANN ,DTCT ( 5 ) ,DCL,FT2NET ,BC(^0),FSR 
COMM0N/CCN02/ NUMNEU ,NUMADO f NUMREP, NDEMC 

COMMGN/CONCJ/ SP 1 , SP2 f SP3 , SPO 

CCMM.cn/CCNOA/ TCNEWf TCADD,TCREP 
C0MM0N/CCNC5/ FRDCLN , FRCC L A , FRDCLR 

10 F0RMAT(ACI2) 

11 FORMAT ( 5F 10. C ) 

13 FORMAT ( FIO.G ) 
lA FORMAT (2CF5.C ) 

20 F0RMAT(7I5) 

CIMENSION AA1(5,2),TXNEU(5),TXADD(5),TXREP(5) 

CIMENSION MAXN(5)f MAXA(10)f MAXR(5) 

CIMENSION NUMN(5fAC)fNUMA(5fAC) fNLMR(5fA0)fNDEMC(5fA0)»FRDCLN(5,5) 

1 ,FRDOLA ( IC, 5 ) ,FRnOLR (5 ,5 ) ,TCNEW ( 5 ) , TC ADD ( 10 ) f TCREP ( 5 ) f AFACTR( 5 ) , 

2 SPINIT( 10) ,SPFRN(5,10) ,SPFRR(5,10) , SPFRD ( 5 , 10 ) , SPl ( 5 ) , SP2 ( 10 ) , 

3 SP3(5) vSPC(5)fNUMNEW(5,5) , NUM ADD ( 1 0 , 5 ) ,NUMREP(5,5) , CCLNEW ( 5, 5 ) , 
A DOLADC( 1C,5) ,DCLREP(5,5) , D SUMN ( 5 ) , DSUM A ( 1 0 ) , DSUMR ( 5 ) , 

5 SPNEW(5) , SPADO (10) , SPRE P ( 5 ) , ADDS PN ( 5 , 1 0 ) , ADDSPR ( 5 , 10 ) , ADDN ( 10), 

6 ADCR( 10) , AS?ACE( 1C) ,MDEMGL(5) ,SPDEM:( 5) , 5UBD( 10) ,SPANET (10) 
CIMENSION SPANX(IC), NUMNX(5,5), NUMAX(10,5), NUMRX(5,5) 

IF(T .NE. 0) GO TC ICO 

NPER = STGPTM - STARTV+1 

READ(5,2C) NNMAX,NAMAX,NRMAX,MAXSTN,MAXSTA,MAXSTR,LFLAG 
CO AC I=1,NNMAX 

AO READ(5,1C) ( NUMN ( v , J ) , J = 1 ,NPER ) 

CC A5 I=1,MAMAX 

A5 HEAD(5,10) ( NUM A ( I , J ) , J= 1 , NPER ) 

CO 50 I=1,NRMAX 

50 READ(5,1C) ( N UMR ( I , J ) , J= 1 , NPER ) 

CC 55 I=1,NNMAX 

5.5 PEAG(5,11) (FRDCLNd ,J) ,J = 1,MAXSTN) 

CO 60 I=1,NAMAX 

60 READ(5,11) ( FRDOLA ( 1 , J) , J=1 fMAXSTA) 

CO 65 I=1,NRMAX 

,65 READ(5,1) ) ( FRDCL R ( I , J ) v J= 1 , M AXSTR ) 

READ(5,M) nXNEWd ) , 1 = 1,5) 

READ(5,.i) (TXADDd ) ,1 = 1 ,5) 

RFAD(5,11) (TXREPd ), 1 = 1,5) 

READ (5, 13) AFACTRd) 

READ(5,11) (SPANX (J),J=1,5) 

FT2NET = 0.0 
CC 68 J=1 ,NAMAX 

68 FT2NET = FT2NET + SPANET(J) 

READ ( 5 , 1C ) (MAXM d ) , I = 1 ,5) , (MAXA ( I), 1 = 1, 10), ( MAXR( I ) , 1=1 , 5) 

CC VC I=1,NRMAX 

7C READ(5,10) ( NDEMO d , J ) , J= 1 , NPER ) 

CO 75 I=1,NNMAX 

75 REAC(5,1A) ( S PFRN (I , J ) , J= 1 , N AM A X ) 

CC 80 I=1,MRMAX 

80 RFAD(5,1A) ( SPFRR ( I , J ) , J= 1 , N AM AX ) 

CO 85 I=1,NRMAX 



ERIC 













FCKTRAN SOURCE LIST CONSTl 



)15 

12 

U 

31 

36 

ft? 

60 

71 

72 

73 

: I 

7ft 

77 

00 

01 

p2 

bft 

p5 

:c6 



r 

M 

K 

23 



C 



2ft 



SISSCN - SDGNE - 

SOURCE STATEMENT 

8b REA0(5,lft) (SPFRDC I , J) , J^1,NAN'AX) 

RE AC (5,11) (SP1(I),I = 1,5) 

REALMS, 11) (SP2(I ), 1=1,5) 

PEAC(5,11) (SP3(I),I=1,5) 

REALM 5, 11) (SPLM I ) ,1 = 1,5) 

IN'ITIAL CGNLMTIGNS 

REAC(5,IC) ((NUiVNX ( I , J ) , J = 2 , 5 ) , I = 1 , MNf^AX ) 
REALMS, 1C) ((N’Uf^AX ( I , J ) , J = 2 , 5 ) , I = 1 , KAMAX ) 
READ( 5, 1C ) ( (NUP:RX ( I , J ) , J = 2,5) , 1=1 ,N'RMAX) 
C IUF=.025 
CALL CONST? 

GO TO ftCC 

T IS GREATER THAN ZERO 
ICC IF(T.NE.STARTN) go TO 200 
FT?NET=C. 

CC ICI J = 3 ,5 
SPANET( J)=SPANX(J) 

101 FT2NET=FT2NET+SPANET(J) 

CC 1C2 I=1,NNNAX 

CO 'C2 J=2,5 

102 NUNNEL ( I , J )--NUNNX ( I , J ) 

CC 1C3 I=1,NANAX 

CC 1C3 J=2,5 

1C3 NUNACD( I,J)=KUNAX(I,J) 

CC ICft I=1,MRNAX 
CC ICft J=2,5 

10ft NUNKEP( I , J)=NUNRX(I , J) 

200 PMT = T - STARTN+1 
ADJUST FOR INFLAT IC\’ 

IIT=T-STARTN 



25 

26 
27 

30 

31 
33 
3ft 

36 

37 
U 

%ft 

W 

50 

51 
53 

55 

56 

57 

pi 

b 

bft 

b 

^7 

ri 



CFAC=( K + CINF )^t-I IT 
CC 1C5 1=1,5 
TCNEWM I )=TXNEUM I )=frCFAC 
TCACC ( I )=TXACL ' I )«CFAC 
105 TCREP(I) = TXREP(I )^*^CFAC 
• CC 205 I=1,NNNAX 

205 ^UNNE^^^I,1) = NLMN(I,PNT) 

CC 206 1 = 1 jNANAX 

206 M'NACDd,!) = NUMA(I,NNT) 

CC 2C7 I-1,NRNAX 

207 NUMREPd,!) = NUMR(I,PNT) 

IF(NNT .GT. LFLAG) CALL CCNST2 
CC 215 J=1,NAXSTN 

CC 21C I=1,NNNAX 

210 CCLNEVsd,J) = FLOAT(NUKNEW( I,J) X'TCNEWf, I )*FRDOLN( I,J) 

215 CC^aINUE 

CO 220 J=1,NAXSTA 
CC 216 I=1,NARAX 

216 CGLADCd,J) = FLOAT ( NUMADD (I , J ) ) «TCADD (I ) *FRDCL A (I , J ) 

220 CCkMINUE 

CO 225 J=1,NAXSTR 
CC 221 I=1,NRNAX 

221 CCLREPd,J) = FLOAT(tNUMREPd , J) )*TCREPd )*FRDGLR d , J) 
225 CONTINUE 

CC 23C I=1,NNNAX 





SISSCN “ SL’CNE - 

SOURCE STATEMENT 



FORTRAN SOURCE 



CSUMN( n = C. 

00 226 J^1,^■AXSTN 

226 CSUMN(I) = DSUiMN(I) + DGLNFKd.J) 
23C CONTINUE 

CO 235 I=1,NANAX 
0 SUMAC I) = 0. 

00 231 J=1,MAXSTA 

231 CSUMA(I) = DSUMA(I) + DCLADD(I,J) 

235 CONTINUE 

00 2AC T=1,NRMAX 
CSUMRC I ) = C. 

CO 236 J=l,MAXSTR 

236 CSUMR(I) = DSUMRU) + DCLREPU.J) 

240 CONTINUE 
OTCT(l) = 0. 

CO 241 I=1,NNMAX 

241 OTCT(l) = OTOT(l) + DSUMN(I) 
CTGT(2) = 0. 

00 242 I=1,NAMAX 

242 CTCT(2) = DTCT(2) + DSUMA(I) 
CTCT(3)-:C. 

CO 243 I ---1, MR MAX 

243 CTOT(3)=DTOT(3)+DSUMR(I ) 

OUMMY=:C. 

00 245 K=l,3 

245 CUMMY = DUMMY+n TOT { K ) 

CTCT{4)= AFACTRCU^’^OUMMY 

COU = DTCTC4) + DTGT(2) + DT0TC3) 

COUANN DUMMY + DT0T(4) 



441 

442 

443 

445 

446 
4*4 7 

451 

452 

453 

455 

456 

457 
461 

463 

464 

465 
467 

471 

472 

473 

474 

476 

477 
5C0 
502 




27C 



275 



280 



285 

290 



291 

295 



) )«SP1 ( I ) 

) )=!^sP2n ) 

) )^'SP3(I ) 



301 



303 

3C5 



CAUCUUAIION OF SPACE CHANGES THIS PERICC 

00 270 I=1,NNMAX 

K=MAXN(I) 

SPNEKCn = FLOATCNUMNEK ( I ,K 
00 275 I*-=1,NAMAX 
K = MAXA { I ) 

SPACCd) = FLCAT(NUMADD(I ,K 
00 280 I=1,NRMAX 
K=MAXR I I ) 

SPREP(I) = rLOAT(NUMREP(I,K 
00 29C I=1,NNMAX 
00 285 J=1,NAMAX 

ACDSPN(I,J) = SPNEK ( n^SPFRN ( I , J ) 
CONTINUE 

00 295 I=1,NRMAX 
CO 291 J=1,NAMAX 

ACCSPRdtJ) = SPREPC I )<=SPFRR(T,J) 

CONTINUE 

CO 305 J=1,NAMAX 
ADDNC J)=C. 

CO 301 I=1,NNMAX 
AnCN(J) = ADCN(J) + ADDSPN(I,J) 

ACER ( J ) = C. 

00 3C3 I=1,NRMAX 
ACCR(J) = ACCR(J) + ADDSPR(I,J) 

CONTINUE 












LIST CONSTl 
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N SOUriCE STATEMENT 



FCRIRAN SOURCE LIST CONSTl 



Cn 3IC J=1 fNAN^AX 
310 />SPACE(J) = ADDN(J) 
no 315 I=1,NRPAX 



+ SPADD(J) + ADDR(J) 



10 




PCEMCL 1 I ) 


11 


315 


SPOEPI I ) 


13 




CO 325 J= 






SUBD( J)=C 


15 




CO 320 1= 




32C 


SLBO(J) = 


20 


325 


CONTINUE 


22 




CO 330 J= 


23 


330 


SPA.NET(J) 


h 




FT2TCT = 






CO 340 J= 


21 


340 


FT2TCT = 


31 




FT2NET = 


C 




SHIFTING 


32 




CO 365 1= 


33 




K = PAXN( I ) 






IF(K .LT. 


37 




CO 360 J 


^0 




P --- K - J 


u 




IF(M .EG. 




360 


NUr.NE^,{ I , 


^6 


365 


CONTINUE 


50 




CO 375 1= 


51 




K = P!AXA ( I ) 


52 




IF(K .LT. 


55 




CO 370 J 


56 




P = K - J 


57 




IF(p: .EQ. 


62 


370 


NLINACC (1,1 




375 


CONTINUE 


66 




CO 385 1= 


67 




K=MAXR ( I ) 


10' 




IF(K .LT. 


73 




CO 380 J ^ 


74 




P = K ~ J 


h 




IF(M .EG. 


DC 


380 


NUNREP (1,1 


D2 


385 


CONTINUE 


D4 


4CC 


RETURN 


D5 




END 



+ SPAMET(J) 
+ FT?TOT 






1,K 









CONST 2 



1 

21 

51 

54 

74 

100 

157 

165 

203 

204 
211 

215 

224 

245 

255 

261 



20 Set up core 

50 Set up initial conditions 

24 - 36 Computes crude pcmameters for forecasting 
enrollment by a linear extrpolation; with constant A1 
and slope Bl. This is based on the past two years. 

53 Compute enrollment APF3 from A1 and Bl. Add 

paraprofessional staff, PSTFA, who also need space, 

(Staff needs are assumed to be negligible at this level 
of aggregation. ) 

73 Calculate space available, YYY, from construction 

previously authorized, in vear being planned. SPI 
is space per unit. 

75 If space available exceeds policy requirements, return. 

155 Calculate cost of construciion in process for years 
under planning (next three). DXXX (K) is total cost 
in year K. 

163 Compar 3 cost to budget BC (K). If exceeded, return, 
otherwise go on to add construction. 

176 See if new construction will exceed budget. If so, * 

if not go on (Note that one school over budget can 
be authorized). 

NY = added school 

206 If space exceeded ► 

212 Add schools of each level (elementary, middle, high) 
and then repeat (at statement 392) until one of the 
limits is exceeded. Here 4 elementary schools axe needed, 

222 Check cost 

243 Add two middle schools 

253 Add one high school 

256 Update new school count for years under consideration 

Return to main construction simulation CONST 1. ^ ^ 
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] 



‘ 16 
17 
1 20 
!21 
2A 

25 

26 
27 
30 
32 
3A 

35 

36 

37 
^1 
A2 
A7 
50 



I 



y 



51 

52 

53 



bA 

55 

56 

57 
60 
61 
62 
6A 
66 

U67 



70 



71 



$IGFTC CCNST2 

. SUPROUTINE CCNST2 
INTEGER Tf STARTM, STOPTMfRO 

CONNON/MASTER/T,STARTN,STnPTfSRCt DOLCEGtEPS,EL,TCOLEQ 
CCNNON/CSTUP/I YF ( A ) , STUF ( A,2 ) 

CORNON /CGNCl/ DGLANN , CTOT ( 5 ) , DOL , F T2NET vBCtAO)vFSR 

CCNNCN/CCK’C2/ MUMNEW ,NUNADD ,NUMREP, NDERC 

CCMN0N/CGNC3/ SPl » SP2 , SP3 t SPD 

CONMCN/CCNOA/ TCNEVj , TCAOD , TCREP 

CCNNGN/CGNC5/ F»^CCLN , FRDGL A , FRDGLR 

COMMON /CDFMC/ POP , S TU ( 2 ) t STFA { 2 ) , STFN ( 2 ) tCSTF ( 2 ) 

CGMMCN/CPCM/ C P S , P STF A ( 2 ) , WUC P ( 2 ) 

Cl MENS I ON NUMMEU'(5,5) , NUM ADD ( 1 0 t 5 ) , NUMR E P ( 5 , 5 ) , NDEMO ( 5 , A 0 ) , SP I ( 5 ) , 

1 SP2 ( 10 ) ,SP3( 5) , SPC( 5 ) ,TCNEK( 5) , TCADD ( 10 ) , TCREP ( 5 ) t FRDCLNI 5,5) # 

2 FRCCLA( 1C,5 ) ,FRCCLR( 5,5) 

CTMENSION A1(3),B1(3), DNUC ( 5 , 3 ) , DRUG ( 5 , 3 ) , DAUC ( 10 , 3 ) , 

1 DN(3),f)R(3),DA(3) ,DXXX(3) , NX ( 3 ) , CST ( 3 ) 

CIMENSIGN PF(A), lYPF(A) 

1C FGRMAKCFIC.C ) 

11 FORMAt(pic„0» 

IF(T .GT. C) GO TO 30C 
CO 60 J = 1,A 
lYPF(J) = lYF(J) 

PF(J) = C.C 
.0 75 I = 1,2 

75 PF( J ) = PF( J ) + STUF ( J, I ) 

8C CGNTINL^" 

CO ICO 1=1,3 

EKI) = {PF( I + l )-PF ( n ) /FUjATU YPFCI + l )-IYPF { I ) ) 

Aim = PF(1) - Rl( I )*FL0A T n YPF ( I ) ) 

ICC CONTINUE 

NPFR = STCPTM - STARTM +1 
REAC{5,1C) (BC( I ) , I^1,A0I 
REAC{5,11) FSR 
GO TO 5CC 

C T IS GREATER THAN ZERO 

300 JJT = T + 2 

LLl = {{JJT - IYPF{l))/5) + 1 

APF3 = AHLLl) + B 1 { LLl ) «FLCAT { J JT ) +PSTFA { 1 ) +PSTFA { 2 ) 

1+STFA{ 1)+STFA{2) 

C CALCULATE FLOOR SPACE IN THREE YEARS 

LCH = FLOAT {NUMNEU { 1 ,3) +NUMNEWI 1 ,A) +NUMNEVi{ 1 ,5) ) *SP1 { 1 ) 

LCI = FLOAT {NUMNEVs{2,2)+NUMNEU{2,3)+NUMNEW{2,A) )vSPU2) 

ICL = FLCAT{NUMNEVn{ 3,1)+NUMNEW{3,2)+NUMNEW{3,3) )«SP1{3) 
tCA = O.C 
CC 310 1=1,5 
CO 3CS J=l,3 

309 LCA = UCA + F LO AT { NUMADD { I , J ) ) ’^ SP2 { I ) 

310 CONTINUE 

LLT = T ~ STARTM +1 

ICHR = FLOAT{NUMRFP{ 1,3) + NUMREP { 1 , A ) + NUMKEP { 1 , 5 ) ) ^'SP3 { 1 ) - 
1 FLOAT{NDEMC{ 1 ,LLT + 2)+NDEMC{1 ,LLT+1 ) + NnEMC{ 1,LLT ) )*SPD{ 1) 

UCIR = FLCAT{NUMREP{2,2) + NUMREP { 2 , 3 ) +NUMRE P { 2 , A ) ) «S P3 { 2 ) ~ 

1 FLGAT{NnEN0{2,LLT + 2)+NDEM0{2,LU + l )fNDEMC{2,LLT) )*SPU{2) 

UCLR = FL0AT{NUMREP{3,1) + NUMRE P { 3 , 2 ) +NUMREP { 3 , 3 ) ) *SP3 { 3 ) - 
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FORTRAN SOURCE LIST CONST2 



111 





1 FLOAT (NDERO ( 3,LLT + 2 ) 4-NDEN'O ( 3 v LLT< 1 ) + NDERO t 3 t LLT ) ) ♦SRD ( 3 ) 

XXX = UCH + LC.’ + tCL + UCA ^ UCHR + UC I R + UCLR 

VYY = FT2NFT + XXX 

RATIOl = YYY/AfF3 

IFIRATIOI .GT. FSR) GO TO 500 

CALCULATE TOTAL EXPENDITURES FOR THIS AND THE NEXT 2 YEARS 

NE\\ AND REPLACFPENTS 

CO 33C I=lf3 

LL5 = 7 - T 

CO 325 K=l,3 

ENUC( I ,K ) = C.O 

LRUCI I ,K » = C.O 

JNAXl = U .5 K 

L L = K - i 

CO 32C J=1tORAX1 

CNHC(IvK) = Df\'UC(I»K)+ FLOAl(NUMNEW(I»J))’^‘TCNEW(I)’^‘FRDOLN(I»i^Z) 

CROC I I ,K) + FLCAT (NLiVREP( I , J) ) «TCREP ( I ) *FRDOLR ( 1 , NZ ) 




CRUC ( I ,K ) 
CONTINUE 
CONTINUE 
CONTINUE 
ADDITIONS 
CO 3^1 5 1 = 1,5 
CO 3'iC K=l,3 
CAUC(I,K) = C*0 
JNAXl = A ~ K 
ILA = K - 1 
CO 335 J=1,JNAX1 



235 

3A0 

2A5 



RZ = J + LLA 

CAUC (!,K) = CAUC(l,K)+:-LOAT(NUYAOD(I,J))«TCADD(n *FRDOLA ( I ,HZ ) 
CONTINUE 



350 



+ 

+ 



DNUC U ,K) 
DRUCn,K) 



355 

36C 



365 



370 



385 



CONTINUE 

CONTINUE 

SUNNING ACROSS ALL SCHOOL TYPES 
CO 36C K=l,3 
CN(K) = C.C 
CR(K) = C.O 
CO 35C 1=1,3 
CN(K) = CN(K) 

CR(K) = DR(K) 

CA(K) = 0.0 
CO 355 1=1,5 
CA (K ) = DA (K ) 

CONTINUE 
SUMMING ACROSS 
CO 365 K=l,3 
CXXX(K) = DN(K) DR(K) 

CO 370 K=l,3 

IF(DXXX(K) .GT. BC(LLT)) 
CONTINUE 
ACD SCNE NEW 
FXXX = 0.0 
CO 385 J=l,3 
CST(J) = C.C 
NX(J) = C 






DAUC ( I ,K) 
ALL CONST 



TYPES 

DA(K) 

GO TO 500 



SCHOOLS 



ERIC 
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72 

[73 

7A 
75 
L76 
?!01 
to 3 

?05 

f06 

11 

il2 

>15 

!16 

h7 

>22 

25 

26 
27 

32 

33 

36 

37 
AC 
A3 
A5 
A6 
A7 
50 
53 

C 

5A 

C 

55 

56 

57 
61 



391 NXXl = 0 
NXX2 = 0 

392 EC 395 K=l,3 

CST(K) = CSTIK) + TCNEl<(3)«FRDCLN(3»K) 

IF( (CXXX(K)>^CST(K) ) .GT, BC(LLT)) GO TO A30 

395 CONTINUE 

NX(35 = NX(3) 1 

FXXX = FXXX + SPK3) 

RAT102 := (YYY + r-xxx) / APF3 
IF{PA.IC2 .GT. FSR) GO TO A35 
FXXl = MXXl + 1 
IF(,VXX1 .LT* A) GO TO 392 

396 EC ACC K=l,3 

CST(K) = CST(K) + TCNEK(2)’‘"FRDCLN(2fK) 

IF( (i:XXX(K)+CST(K) ) .GT. BC(LLT)) GO TO A30 
ACC CONTINUE 

NX(21) = NX(2) + 1 
FXXX = FXXX + SPK2) 

RATI02 = (YYY FXXX) / APF3 
IF(RATIG2 .GT. FSR) GO TO A35 
NXX2 = FIXX2 + 1 
IF(MXX2 .LT. 2) GO TO 396 
EG AC5 K=l,3 

CST(K) = CST(K) + TCNEKd )>:^FRD0LN(1 ,K) 

IF( (CXXX(K)+CST(K) ) .GT. BC(LLT)) GO TO A30 
A05 CCNTINLE 

NX( 1 ) =- NX( 1 ) + I 
FXXX = FXXX + SPKl) 

RATIC2 = (YYY + FXXX) / APF3 
IF(RATI02 .GT. FSR) GO TO A35 
GO TO 391 

BUDGET CONSTRAINT REACHED 
A30 GO TO A35 

EESIRED SPACE REACHED 
A35 EC AAC 1=1,3 

NUMNEWd,!) = NUMNEWd,!) + NXd) 

AAC CONTINUE 
5C0 RETURN 
END 



me 




« 
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QPNS Computes overheads. 

1-10 Set up core 



11 - 34 



35 - 37 



41 - 51 



52 



Read in overhead factors and initial rates. 

I = factor index 

FLATN(I) = inflation factor for this year, TEASE, years 
after start. 



THLTH = cost of health services 

RIHLTE, R2HLTH = average health service cost per 

student in each eara 

TTA = tx^ansportation cost 

PITTA, P2TTA = average transportation cost per student 



TCNSEP 

PINSP 

P2CNSR 

TBKSED 
PIBE, P2BE 
PEPC 
TEQ 
PIEQ 



TPMEQ 

PPMEQ 

TDS 

DOLANN 

DFACT 



= contract service cost 
= average contract service cost per student 
= average contract service cost per square 
foot of building space 
= cost of books and educational materials 
= average cost of books, etc. , per student 
= percent of students using CAI equipment 
= equipment related costs 
= equipment related costs per student 
with CAI (assumed to be 1/lOth as great 
without CAI) . 

= equipment maintenance and repair costs 
= cost of maintenance per dollars worth of 
equipment 
- debt service cost 
= capital dollars spent this year 
= average debt service per capital dollar 
expended. 



Total overh-c'% TOH. 
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C 

1 

2 

3 



A 

5 

6 
7 

10 

11 

1 ^ 

21 

22 

23 

2A 

25 

26 
27 
3C 

31 

32 

33 

34 

35 

36 

37 

40 

41 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 



$IBFTC CPNS 

SUBROUTINE CPNS 

INTEGER T, STARTS, STOPTR.RC 

CO^'^'.ON/COP^tS/TPON ,TEC,TBKSED,TTA,THLTH,TRNECtTDSfTCNSER, 
l,RlEGtR2E0 

C0^^MCN/C[:EM0/PCP,STU^2) , STE \ ( 2 ) , STFN ( 2 ) tCSTF ( 2 ) 

CORMGN /CCNCl/ DCLANN ,OTCT ( j ) ,DCL ,F T2NET ,BC(40),FSK 
CCf^NGfv/NASTER/T, starts, STCPTN,RG,CnLCEG»EPS,EL,TDOLEQ 
CIPENSION :U 1C) fFLATN(lO) 

INTEGER TBASE 
IFIT.GT.OGC TO 8 
READ [5,4) (R(I),I=1,7) 

4 FCRNAT (7F4.3) 

6 FORMAT (2F6. 3 ) 

READ' 5,6 )R1HLTH,R2HLTH 
READ! 5,6)R1TTA,R2TTA 
READ! 5,6)R1BE,R2BE 
READ(5,6)R1EG,R2EG 
rEAD(5,6)RlCNSR,R2CNSR 

7 FORMAT ( F7. 4 ) 

READ! 5t7)DFACT 
READ(5,7)RPOM 
READ! 5,7)RRMEC 
TCS = 1C.E6 
TDCjLEQ = 12.E6 
RETURN 

8 TEASE=T-STARTM 
CC 5 1=1,10 

5 FLATNm = (l.C+Rl’I ) I’fr’t'TBASE 

THLTH= ( R IHLTF’^STl ( 1 ) + R2FILTH=«' STU ( 2 ) ) ’I'FL ATM { 1 ) 

TTA=(R1TTA^<STU( 1 ) + R2TTA«STU (2 ) ) *FLATN (2 ) 

TCNSER = (R1CN5R*PCP + R2CNSR*FT2NET)’!'FLATN(3) 

TBKSEC = (R1BE*STU( 1 ) + R2BE=«'STU ( 1 ) ) <=F L ATN (4 ) 

I EQ= ( RlEG’^'STU { 1 ) + R 2EG’!=S TU ( 2 ) ) -F LAIN I 5 ) 

TRMEG = RRMEC=«=TDGLEC*FLATN{6) 

TPCM = RPCM=^FT2MET*Fl.ATM(7) 

TDS = DOLANN+'DFACT + TDS 

TCH=TPCM+TEQ+TBKSEDi TTA+THLTM+TRMEC+TDS+ TCNSER 

RETURN 

EMC 



TOH 
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EQPURC 



1 - 7 


Set up core 


10 - 17 


Reset parameters for each run (when T = STARTM) 


20 - 60 


Compute equipment expenditure DOLCEQ which must 
be less than the budget limit EL. 

EPS ^ Equipment (capital cost) required per student 
for CAL 

POP = total enrollment. 

Calculate share of budget for equipment for area 2 
(which is weighted by a factor FS to be proportionately 
greater than area 1). 

I = area index 

E = total capital needed in area 

DOL = capital spent this year 

TDOL = capital for CAI spent to date 

TODLEQ = total capital spent to dale 

XW2 = effective staff student ratio: varies between 

the basic ratio, X2, and the rate with CAI, XC2, 
in proportion to the fraction of students on CAI. 
PERC - percent of students using CAI. 



o 



FORTRAN SOURCE LIST 



025 SISSON SDCAI 
ISN SOURCE STATEMENT 



0 $IBFTC EQPURC 

1 SUBROUTINE EORURC 

2 INTEGER T, STARTM 

3 REAL M 

4 COMMON/MAST£R/T*STARTM,STOPTM,RO,DOLCEUt EPS,EL,TbOLEC 

5 COMMON /CDEMO/ POP , STU ( 2 ) * STF A ( 2 ) t STFN ( 2 ) t CSTF { 2 ) 

6 COMMON /CEQ/ FS,XE2(2),XC2(2)fX2(2),PERC 

7 DIMENSI0ND0L(2) ,»TD0Lt2) , E ( 2 ) 

10 IF ( T.NE.STARTM) GO TO 1 

13 DO 2 I=l»2 

14 2 XE2( I )=X2(I ) 

16 TD0L(1)=0. 



17 

20 

21 

24 

25 
27 
30 

33 

34 
37 

40 

41 

42 

43 

46 

47 

50 

51 

52 

54 

55 

56 

57 
60 
61 



TD0L(2)=0. 

I DOLCEQ = EPSi^POP 

IF (UOLCEQ .GT. EL) DOLCEQ = EL 

DO 10 I=l»2 
10 £( I) =EPS*STU( L) 

3 DOL (2) = (1./FS)^^D0LC£Q^»(STU(2)/P0P) 

IF ( D0L(2) .GT.OOLCEQ) DDL ( 2 ) =^DOLCEQ 
TOOL (2)=T00L(2)+D0L{2) 

IF ( TD0L(2) .LT,E(2) ) GO TO 11 
TD0LI2)=E(2) 

DOLI 2)=E(2)-TDUL( 2)+OOL(2) 

II OOLl 1)=D0LCE0-DUL(2) 

TOOL m=TDOL( 1 )+D:jL(1) 

IF ( TOOL ( 1 ) .LI .El 1 ) ) GO TO 4 
TD0L(1)=E(1) 

D0L( 1)=E(1)-TDGL( 1)+00L( 1) 

D0LCEQ=D0L(1 )+D0Ll2 ) 

5 XE2( I ) = ITDOLI I ) / E ( I ) ) »XC 2 ( I ) + ( ( E ( I )-TDOL( I ) ) / E { I) ) «^X2 { I ) 
PERC” ( ( TOOL ( 1 ) + TDOL { 2 ) ) / ( E ( 1 ) +E ( 2 ) ) ) *100. 

TDOLEQ=TDOLEQ+DCLCEQ 

WRITE(6,1G0) D0L( 1) ,D0L(2) ,TDOL( 1),TD0L(2) ,E( 1),E(2) 

100 FORMAT (lHO/lHOf6(2X,F10.0)//) 

RETURN 

END 



